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ABSTRACT! Digital filters can be realized with remarkably small computational 
burden as polyphase recursive all-pass networks. These networks are formed as a 
sum of M parallel all-pass subfilters with phase shifts selected to add construc- 
tively in the passband and destructively in the stopband. The design technique we 
present here starts with prototype M-path recursive all-pass filters obtained by 
a new optimizing algorithm (described in detail elsewhere) . These filters are 
operated with combinations of all-pass transformations, resampling, and cascading 
options. We demonstrate a number of designs using the new algorithm along with 
examples of filtering systems obtained by the techniques presented. 



1. INTRODUCTION 

A standard finite impulse response (FIR) 
filter can be modeled, as indicated In Fig. 
1, as the weighted summation of the contents 
of a tapped delay line. This, summation is 
shown in (1) and the transfer function of 
this filter is shown in (2) . 



M-l 



Y(n) 



■ E 



h(ra-n) x(m) 



m=0 



M-l 



Y(Z) 



X(Z) 



E 



n=0 



h(n) Z" 



(1) 



(2) 





FIGURE 1. TAPPED DELAY LINE FIR FILTER 

We note the frequency selective characteris- 
tics of the filter output is due to the 
phase shift between successive samples in : 
the tapped delay line. This phaser summation j 
is shown in Fig. 2 for two different fre- 
quencies. ; 

i 

Note that it is the phase shift, and not the 
weighting terms which is responsible for the 
frequency dependent gain of the filter. The . 
weighting terms are used primarily to con- 
trol passband width and stopband attenuation 
of the filter. An idea derived from spatial : 
beamforming (known as beam spoiling) (1) and 
' from signal synthesis (peak-to-rms control) 
[2) is to use structured* phase shifts (with 
arbitrary amplitudes) to accomplish the same 
goal. 



FIGURE 2. PHABOR 8UMKATION OF FIR FILTER 
OUTPUT FOR TWO FREQUENCIES 

The class of filters we describe here re- 
places the weights of the FIR filter with 
all-pass subfilters which exhibit unity gain 
with frequency dependent phase shift. In 
anticipation of the polyphase structure, the 
all-pass subfilters are, as shown in (3) and 
Fig. 3, first order polynomials in 2"" where 
M is the number of taps in the structure. 
This composite form is indicated in Fig. 4a 
with a modified form reflecting a polyphase 
structure in 4b. The transfer function of 
this structure is shown in (4). 
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FIGURE 3. M-TH ORDER ALL-PASS SUBFILTER 
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Fig. 7* show examples of equal ripple designs 
obtained from this new algorithm for a 2- 
path and for a 5-path filter with two and 
three all-pass stages per path respectively. 
Interacting constraints on the optimal de- 
sign (described in the aforementioned paper) 
limit the possible number of stages per path 
for the 5-path filter to the sequences 
(1,1,1,1,0), <2,2,2,1„1), (3/3,2,2,2), etc., 
bo that the optimum 5-path filter uses three 
less stages than allocated to the design. 
Similarly the 2-path filter is limited to 
the sequences (1,0), (1,1), (2,1), (2,2), 
(2,3) , (3,3) , etc. 

2. TWO PATH FILTERS 

We find a wealth of interesting properties 
and clever applications for this structure 
even if we limit our discussion to a 2-path 
filter. As designed, the 2-path filter is a 
half bandwidth filter with the 3-dB band- 
width at 0.25 f § . If the zeros are restricted 
to the half sampling frequency, the filter 
identical to a half bandwidth Butterworth 
obtained by the standard warped bilinear 
transform. For this special case, the real 
parts of the root locations go to zero. If 
the zeros are optimized for equal ripple 
stop band behavior the filter becomes a 
constrained Elliptic filter. The constraints 
are related to a property of complementary 
all-pass filters. We define the all-pass 
sections for the 2-path filter as H o (0) and 
H,(G) and, as indicated in Fig. 8, the scaled 
by one-half sum and difference of these 
paths by A(G) and B(8), the lowpass and 
highpass filters, respectively. We know that 
the all-pass sections satisfy (5) from which 
ve derive the power relationship between the 
lowpass and highpass filters shown in (6) . 



For small e., we can ignore (c,) 1 which leads 
to (8). 1 

€ 1 - 0.5 (e,) 1 (8) 

Thus if the stopband attenuation is selected 
to be 0.001 (60.0 dB) , the passband ripple 
is 0.000 000 5 (126.0 dB) or the passband 
minimum gain is 0.999 999 5 (-0.000 000 22 
dB) . As can be seen these filters have a 
remarkably flat passband. We conclude that 
the 2-path equal ripple stopband filters are 
elliptic filters with coupled passband and 
stopband ripple with -3.0 dB gain at 0.25 f . 
There are two significant differences be- 
tween the 2-path and the standard implemen- 
tation of the equivalent elliptic filter. 
The first is a four-to-one savings in multi- 
plications; a fifth order half bandwidth 2- 
path filter requires only two coefficients 
as opposed to the direct implementation 
which requires eight (scaling included) . The 
second is that all-pass structures exhibit 
unity gain to Internal states hence do not 
require extended precision registers to 
store internal atates as do standard imple- 
mentations. 

As with any filter design, the transition 
bandwidth can be traded for out of band 
attenuation for a fixed order or transition 
bandwidth can be steepened for a fixed 
attenuation by increasing filter order. 
While nomographs exist for the elliptic and 
Butterworth filters which can be implemented 
by the 2-path structure, a simple approxi- 
mate relationship for the equal ripple 
filter is given in (9), where A(dB) is 
attenuation in dB, Af is transition band- 
width, and N is the total number of all-pass 
segments in the filter. 
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FIGURE 8. COMPLEMENTARY LOW PAS 3 AND HIGHPASS 
FILTERS FROM 2-PATH ALL-PASS NETWORK 

|H Q (G)| 2 = 1*1,(6) | 2 = 1 (5) 
|A(6) | 2 +|B(8)| 2 - |0.5(H 0 (e)+H,(9)]| J (6a) 
+ |0.5(H 0 (e)-H,(9)]| 2 
= O.5[|H 0 (9) | 2 +|Hi< e > | 2 3 < 6b ) 
«= 1 (6C) 

Now to interpret how this relationship 
impacts the 2-path filter. For the comple- 
mentary filters we define the minimum pass- 
band gain of by l~t t and the peak stopband 
gain by e 2 . Substituting these gains in (6) 
we obtain (7) . 
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2A. HILBERT TRANSFORM FILTERS 



(9) 



The Hilbert Transform (HT) can be thought of 
as a particular type of half band filter. It 
is modelled and implemented by a wide band 
90' phase shifting network. The HT is often 
used in DSP applications to form the analyt- 
ic signal a(n) as shown in (10), a signal 
with spectra limited to the positive (or 
negative) frequency band. 



a(n) «= x(n) + j x(n) 



(10) 



We can cast the 2-path filter as a HT in a 
number of ways but a simple method, akin to 
the transformation performed on a half band 
FIR filter [4], is a heterodyne of the half 
band filter to the quarter sample frequency. 
If the original filter response and trans- 
form are denoted by h(n) and H(Z) respec- 
tively, then the heterodyned expressions can 
be easily seen to be those in (11) . 



h(n) «> h(n) e'™' 2 ~ h(n) (j) n 
H(Z) -> H(2 e' ,/2 ) - H(j Z) 



(Ha) 
(lib) 



The transformation of a half band filter to 
an HT 
each Z* 

Since the polynomials of the all-pass sub- 
filters are second order, this transfor- 



filter is accomplished by replacing 
5' 1 of the transfer function with -jZ* 1 - 



mat ion can be accomplished by changing the 
sign of the coefficient used Jn each all- 
pnos sub filtor and by associating a -j with 
the lower path delay. These operations are 
indicated in Fig. 9. 



of Fig. 7. is used for up sampling, we would 
perform 3 multiplications per output point. 
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FIGURE 9. HILBERT TRANSFORM ALL- PASS FILTER 
REALIZATION AS TRANSFORMED HALF BAND FILTER 

2B. INTERPOLATION AND DECIMATION FILTERS 

Any half bandwidth filter can be used to 
perform 2-to-l resampling (up or down, 
popularly identified as interpolation and 
decimation) . Finite Impulse response (FIR) 
filters can be operated with a polyphase 
partition which does not process inserted 
zero input points (up-sampling) or compute 
the discarded output points (down sampling) . 
While this option is not available for the 
general recursive filter, it is an option 
for the recursive all-pass H-path filter. 
The M-path filter can be partitioned into 
polyphase segments because of the interac- 
tion of the internal delays of the M-th 
order subfilters and the delay line of each 
path. This relationship is particularly easy 
to see for the 2-path filter. An impulse 
applied at index n 0 makes a contribution to 
the output at the same time via the upper 
path while an output is not available from 
the lower path till the next index due to 
its extra delay Z* 1 i During that same next 
index, the upper path offers no contribution 
to the output because there is no Z* 1 path 
associated with its Z* polynomial- Thus the 
filter delivers successive samples of its 
impulse response from alternate paths of the 
filter. 

Down sampling is accomplished by delivering 
alternate input samples to each path of the 
filter operating at the reduced input rate. 
Since the delay of the second path is ac- 
complished by the input commutation the 
physical delay element in that path is re- 
moved. The filtered and down sampled out-put 
is generated by the sum or difference of the 
two path responses. Note that the compu- 
tation rate per input sample point is half 
that of the non resampled filter, thus if 
the 2-path filter of Fig. 7 is used for down 
sampling we would perform 3 multiplications 
per input point. 

Up sampling is accomplished by reversing the 
down sampling process. This entails deliver- 
ing the same input to the two paths and com- 
mutatlng between their olatputs. Both forms 
of resampling are shown in Fig. 10. As in 
the previous example, when the 2-path filter 
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FIGURE 10. RESAMPLING 2-PATH ALL- PASS FILTER 

The cascade operation of down sampling and 
up sampling of the complementary outputs 
performs two band maximally decimated quad- 
rature mirror filtering and reconstruction 
(5J. 

Cascading multiple stages of up sampling or 
down sampling filters can achieve high order 
sample rate change with remarkably small 
workload per data point. For instance, a 1- 
to-16 up sampler with 96 dB dynamic range 
for a signal with cutoff frequency of 0.4 f § 
requires 2-path filters with successively 
smaller number of all-pass stages of orders 
(3,3), (2,2), (2,1), and (1,1). This re- 
quires a total of 42 multiplications for 16 
outputs, for an average workload of approxi- 
mately 2.7 operations per output point. 

2C. ITERATED POLYPHASE ALL-PASS FILTERS 

The all-pass networks described earlier are 
formed by polynomials in Z"" and specifically 
for the 2-path filters Z* 2 . A useful trans- 
formation is to replace each Z' 2 with Z* 2r , to 
obtain higher order filters exhibiting K- 
fold spectral replication of the original 
filter. For K=2, the half band filter cen- 
tered at DC becomes a pair of quarter band 
filters centered at DC and f f /2. An example 
of spectral replication for the iterated 
filter is shown in Fig. 11. 




FIGURE 11. SPECTRUM OF ITERATED 2-PATH 
FILTER: POLYNOMIALS IN Z* 4 
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Note that this transformation scales the 
prototype filter*s spectrum by 1/K ( reducing 
both pnnnband width and transition width. 
Thus very steep transition bandwidths and 
narrow filters can be realized by the use of 
low order polynomials of degree 2K obtained 
via delay elements. Energy In the replicated 
spectral regions can be removed by a se- 
quence of filters (incorporating various 
degrees of resampling and iterated filters 
of reduced degree. 

3. EFFICIENT ALL- PASS FILTER BANKS . 

Efficient spectral partitioning can be ob- 
tained by cascading and resampling the out- 
puts of iterated lowpass and HT filters. For 
instance the spectra of a four channel 
filter bank centered on the four quadrants 
can be formed with a complementary half band 
filter followed by a pair of resampled HT 
filters as shown on the left side of Fig. 
12. The workload for this 70 dB attenuation 
filter set is 3 multiplications per output 
channel. 

A four channel filter bank straddling the 
previous set (ie. centered on the four 
cardinal directions) can be formed with an 
iterated by two complementary half band 
filter followed by both a complementary half 
band resampled filter and a resampled HT 
filter. This spectra of this filter set is 
shown on the right side of Fig. 12. The 
workload for this 70 dB attenuation filter 
set is 2 multiplications per output channel. 
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FIGURE 12 . SPECTRA OF FOUR CHANNEL QUADRANT 
CENTERED AND CARDINAL CENTERED FILTER BANK 

4 . OTHER ALL-PASS TRANSFORMATIONS 

The prototype complementary all-pass filter 
set can also be transformed to filters of 
arbitrary bandwidth and of arbitrary center 
frequency by standard all-pass transforma- 
tions [6]. The lowpass transformation for 
the half band filter is shown in (12). 



b + Z* 



1 + b Z* 



l-tan(e</2) 
l+tan(6 0 /2) 



(12) 



This transformation warps the frequency 
variable of the filter so that the -3 dB 



point resides at frequency 6 0 . When 6 Q Is 
different from ir/2 the second order polyno- 
mials of the all-pass subfiltsrs aoquirs 

coefficients for the Z' y term. The resulting 
filter requires two multiplications per pole 
2ero pair which is still half the workload 
of the traditional canonic forms. In addi- 
tion, the pole at the origin (due to the 
delay of the second path) transforms to a 
first order all-pass filter thus converting 
an inactive pole to an active one requiring 
an additional first order stage. Fig. 13 
presents the frequency warped version of the 
filter presented In Fig. 7a. Both this 
filter and its complement are available from 
the warped structure. 




FIGURE 13. LOWPASS TRANSFORMATION OF ALL- 
PASS FILTER 

The bandpass transformation is presented in 
(13). 



C - Z* 



z _1 ■=> -z* 



1 - c Z 



- c = cosce,) (13) 



This transformation warps the frequency 
variable of the filter so that the center 
frequency resides at frequency 6,. If 6. is 
equal to 0.0 this transformation is equiva- 
lent to the iterated transformation de- 
scribed in 2.C. For any other frequency, 
this transformation converts the second 
order all-pass filters to fourth order all- 
pass structures. This requires four multi- 
plications to form four pole-zero pairs of 
the resultant filter which is still half the 
workload of the traditional canonic forms. 
In addition, the transformation converts the 
real pole (which is an image of the pole 
originally at the origin) to a pair of com- 
plex poles requiring a second order all-pass 
stage. Fig. 14 presents the frequency warped 
version of the filter presented in Fig. 14. 
As earlier, both this filter and its comple- 
ment are available from the warped struc- 
ture. 

Other transformations and geometries [7] can 
be used with the digital all-pass structure 
and the reader is directed to the bibliogra- 
phy of the listed papers for a profusion of 
options. 
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FIGURE 4A. ALL- PASS FILTER STRUCTURE 




FIGURE 48. POLYPHASE ALL-PASS STRUCTURE 
M-l 



H n ( Z ) 



(3) 



V(Z) = X(Z) 



") Z* n . (4) 



The roots of (3), the M-th roots of -a and 
its reciprocal, are equally spaced about the 
origin as shown in Fig. 5 for the indicated 
degrees M. Note that we realize H poles and 
H zeros per multiplication in the all-pass 
stage. This means for instance that a 2-path 
filter offers two poles and two zeros per 
multiplication as opposed to one pole (or 
zero) per multiplication for the standard 
(factored or unfactored) canonic forms. 









FIGURE 5, POLE-ZERO DISTRIBUTION FOR M-TH 
ORDER ALL-PASS 6UBFILTERS 



As we go around the unit circle we visualize 
that the all-pass subfiltere exhibit rapid 
change in phase in the neighborhood of each 
pole-zero pair. By proper choice of the pole 
positions, the phase shift of each leg of 
the M path filter can be made to match or to 
differ by multiples of 2w/M over selected 
spectral intervals. This is suggested In 
Fig. 6 for M-2 and H«4. The coefficients of 
the all-pass subf liters can be determined by 
standard algorithms [3] or by a new algo- 
rithm developed by harris and d'Oreye end 
reported in a paper recently submitted for 
publication (Signal Processing) . 




FIGURE 6. TYPICAL PRASE RESPONSES OF ALL- 
PAB8 FILTER PATHS, AND CORRESPONDING MAGNI- 
TUDE RESPONSES. 
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FIGURE 7. POLE-ZERO PLOT AND MAGNITUDE 
RESPONSE FOR 2-PATH AND 5 -PATH 
POLYPHASE ALL-PASS NETWORK 
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FIGURE 14. 



BANDPASS TRANSFORMATION OF 
ALL-PASS FILTER 



5. CONCLUSIONS 

We have reviewed the form and utility of the 
all-pass polyphase filter structure. We then 
presented a number of all-pass transforma- 
tions which could be easily applied to M- 
path all-pass filter sets. The emphasis has 
been on 2-path networks but the material is 
easily extended to arbitrary M. We alluded 
to a new set of algorithms for designing M- 
path filters which will be reported in an 
upcoming Signal Processing paper. We have 
demonstrated capabilities of this algorithm 
by using it to generate the examples pre- 
sented in this paper. 

The primary advantage of these structures is 
very low workload for a given filtering 
task, other papers (8,9,10) have discussed 
the low sensitivity to finite arithmetic 
exhibited by these filters. The primary 
impediment to the use of these filters is 
their newness and the lack of available 
design methods for computing filter weights. 
This paper (along with excellent surveys 
listen in the bibliography) address the 
first problem and a forthcoming paper ad- 
dresses the second. 
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/define LAMBDA 0.95 

void OxiLSL_NC( int reset, 

int passes, 

int *signal_l, 

int *signal_2, 

int *signal 3, 

int *target~i, 

int *target_2) { 

int 



. . . ii# »r n, contraction; 

ltllt C J?' . * S - a ' * s - b ' * s - c ' * out a * *°ut c; 
static float Delta_sqr, scale, noisiref; " 

if ( reset — TRUE) { 
e_a « signal_l, 
s_b » signal_2, 
s _c a signa^a, 
out_a = target_li 
out_c = target_2 ( 
factor = 1.5; 
scale « 1.0 /4160.0; 

/* noise canceller initialization at time t=0 */ 

nc[0] .berr = o.O; 
nc[0]. Gamma = l.o; 

for(m=0; m<NC_CELLS; m++) { 

nc[m].err_a~ = o.O; 

nc[m].err_b = o.O; 

nc[m].Roh_a «= o.O; 

nc[mj.Roh_c = o.O; 

nc[mj. Delta «= o.O; 

ncfmj.Fswsqr = 0.00001; 

ncfmj.Bswsqr « 0.00001; 



END INITIALIZATION , L 



for(k=0; k<passes; k++) { 
contraction = FALSE; 

^ nc(B] .Bswsqrl » nc[o] .Bswsqr; 



noise_ref - factor * log(i.o - (*s_a) * scale) 

- log(1.0 - (*s_b) * scale) ; 

nc[0].err_a « log(1.0 - (*s_b) * scale); 

nc[0].err_b - log(i.o - (*s c) * scale); 



++s_ a ; 
++s_b; 
++s_c; 

ncfO] .f err 
ncfO] .berr 
nc(O) .Fswsqr 
ncfO] .Bswsqr 



noise_ref ; 
noise_ref ; 

LAMBDA * nc[0]. Fswsqr + noise_ref * noisejref; 
nc[0) .Fswsqr; 



/* Order Update */ 

for(n»l;( n < NC_CELLS) it (contraction 

/* Adaptive Lattice Section */ 



FALSE) ; n++) { 



m ■ 

ii- 



n-l; 
n-l; 



nc(m) 


•Delta 


*« 


LAMBDA ; 




ncfm] 


.Delta 


+« 


ncfm] 


.berrl * 


ncfm]. ferr / ncfm] .Gamma ; 


Delta 




K 


ncfm] 


.Delta * 


nc(m] .Delta; 


nc(n] 


.fref 


CS 


-ncfm] 


.Delta / 


nc[m] -Bswsqr 1; 


ncfn] 


.bref 




-nc(m] 


.Delta / 


nc(m] . Fswsqr; 


nc[n] 


.ferr 




nc[m] 


.ferr + 


ncfnj.fref * ncfm] .berrl; 


ncfn] 


.berr 


s= 


nc[m] 


.berrl + 


ncfn]. bref * ncfm]. ferr; 


nc[n] 


. Fswsqr 


t= 


ncfm] 


• Fswsqr 


- Delta_sqr / ncfm] . Bswsqr 1; 


ncfn] 


. Bswsqr 




ncfm] 


. Bsvsqr 1 


- Delta_sqr / ncfm] .Fswsqr; 



if( (nc[n] .Fswsqr + ncfn] . Bswsqr) > 0.00001 | | (n < 5) ) { 

ncfn]. Gamma = nc(m].Gamraa - ncfm]. berrl * nc(m]. berrl / ncfm] .Bswsqr] 
if (ncfn) .Gamma < 0.05) nc[n]. Gamma *= 0.05; 
if (ncfn] .Gamma > 1.00) ncfn]. Gamma =1.00; 

/* Joint Process Estimation Section */ 

nc(m].Roh_a *= LAMBDA; 

nc(m].Roh_a += nc[m].berr * nc(m].err_a / nc(m]. Gamma ; 



ncfm].k_a « nc[m].Roh_a 
ncfn].err_a = ncfm].err_a 



/ nc(m] .Bswsqr; 
- nc[m].k_a * nc[m].berr; 



nc[m].Roh_c *«= LAMBDA; 

nc[m].Roh_c +«= nc[m].berr * nc(m].err_b / nc[m] .Gamma 



ncfm] . k_c 
ncfn] . err_b 



ncfm] .Roh_c 
ncfm] .err_b 



/ ncfm] .Bswsqr ; 
- nc[m].k_c * ncfm]. berr; 



) 

else { 

contraction « TRUE; 
for(i*=n; i<NC_CELLS; i++) { 



ncf i] .err_a 
ncfi] .Roh_a 
ncfi j . err_b 
ncfi] .Roh_c 
ncfi] .Delta 
ncfi] .Fswsqr 
ncfi) .Bswsqr 
ncfi] .Bswsqrl 



0.0; 
0.0; 
0.0; 
0.0; 
0.0; 

0.00001; 
0. 00001; 
0.00001; 



) 

} 

} 

*out_a++ = (int)( (-exp(nc[iij .err_a) +1.0) / scale) 

*out_c++ = (int)( (-exp(nc[ii].err_b) +1.0) / scale) 



) 

) 

/********************** 



Least Square Lattice 



APPENDIX C 

/* Normalized Adaptive Noise Canceler */ 

#include <stdlib.h> 
#include <math.h> 



r 



#define TRUE 
#define FALSE 

#define FLOAT 3 2 
#define INT32 
#define VOID 

/define FABSF 
/define SQRTF 

/define MAX(a,b) 
/define MIN(a,b) 



1 
0 

float 
long int 
void 

f abs 
sqrt 



(a) 
(a) 



> 
< 



(b) 
(b) 



7 



(a) 
(a) 



(b) 
(b) 



/define MIN_VAL 
/define MAX_DEL 
/define MIN_DEL 
/define MAX_RHO 
/define MIN RHO 



0.01 

0.999999 
-0.999999 
2.0 

_ -2.0 
/define MIN BSERR 1E-15 



typedef struct { 



FLO AT 3 2 


berr ; 




FLOAT 3 2 


berr 1 


• 


FLOAT 3 2 


delta; 




FLO AT 3 2 


err; 




FLOAT 3 2 


ferr ; 




FLOAT 3 2 


gamma; 




FLOAT 3 2 


gamma_ 


i; 


FLOAT 3 2 


rho; 




FLOAT 3 2 


delta_ 


i; 


FLOAT 3 2 


Bserr ; 




FLOAT 3 2 


Bserr_ 


i; 


LANC CELLS; 







} 

typedef struct 
INT32 
FLO AT 3 2 
FLOAT3 2 
LANC CELLS 



{ 



cc; 

lambda ; 
min_error ; 
*cells; 



} LANC Context; 



extern LANC_Context * 
LANC_Init( 

INT3 2 

FLO AT 3 2 

FLO AT 3 2 



num_cells , 
lambda, 
min_error) ; 



/* number of cells 

/* put in value for lambda 

/* parameter 

/* point to array of ANC CELLS 



/* number of cells 
/* lambda param 
/* min error 



extern VOID 
LANC_Done ( 

LANC Context 



>c) ; 



extern VOID 
LANC_Reset( 

LANC Context 



*anc) ; 



• . r 

extern FLOAT 3 2 
LANC_Calc( 

LANC_Context *anc / /* input, context handle */ 

FLOAT32 nps, /* input, noise plus signal */ 

FLO AT 3 2 noise) ; /* input, noise reference */ 

/* The following macros provide efficient access to the lattice */ 



#def ine 


ANC_CELL_SIZE 11 






#def ine 


xBERR 0 








#def ine 


XBERR 1 1 








#def ine 


xDELTA 2 








#def ine 


xDELTA 1 3 








#def ine 


XGAMMA 4 








#def ine 


xGAMMA 1 5 








#def ine 


xBSERR 6 








#def ine 


xBSERR_l 7 








#def ine 


xERR 8 








#def ine 


xFERR 9 








/define 


xRho 10 








#def ine 


berr 


(*(P 


+ 


xBERR) ) 


#def ine 


P_berr_l 


(*(P 


+ 


XBERR 1 - ANC CELL SIZE) ) 


#def ine 


P_berr 


(*(P 


+ 


XBERR - ANC_CELL_SIZE) ) 


#def ine 


berr_l 


(*(P 


+ 


XBERR_1) ) 


#def ine 


Bserr 


(*(P 


+ 


XBSERR) ) 


#def ine 


Bserr_l 


(*(P 


+ 


xBSERR 1 ) ) 


/define 


P Bserr 1 


(*(P 


+ 


XBSERR_1 - ANC_CELL_SIZE) ) 


fderine 


P delta 


(*(P 


+ 


XDELTA - ANC_CELL SIZE) ) 


/define 


delta 


(*(P 


+ 


xDELTA) ) 


#def ine 


delta_l 


(*(P 


+ 


xDELTA_l) ) 


/define 


P_delta_l 


(*(P 


+ 


XDELTA_1 - ANC_CELL_SIZE) ) 


/define 


err 


(*(P 


+ 


XERR) ) 


jFoer ine 


N_err 


(*(P 


i 

+ 


XERR + ANC_CELL SIZE) ) 


/define 


P_ferr 


(*(P 


+ 


XFERR - ANC CELL SIZE) ) 


/define 


f err 


(*<P 


+ 


XFERR) ) 


/define 


gamma 


(*(P 


+ 


XGAMMA) ) 


/define 


P_gamma 


(*(P 


+ 


XGAMMA - ANC CELL SIZE) ) 


/define 


N_gamma 


(*(P 


+ 


XGAMMA + ANC CELL SIZE) ) 


/define 


P_gamma_l 


(*(P 




XGAMMA 1 - ANC CELL SIZE) ) 


/define 


gamma_l 


(*(P 


+ 


XGAMMA_1) ) 


/define 


rho 


(*(P 


+ 


XRho) ) 



/* 

Name: LANC_Init 

Abstract: Create an ANC context 

*/ 



r 



extern LANC_Context * 
LANC_Init ( 

INT32 

FLO AT 3 2 

FLOAT 3 2 



LANC Context 



num_cells, 
lambda , 
min_error) { 

*anc; 



/* number of cells 

/* lambda par am 

/* min error 

/* context 



anc = (LANC_Context *)malloc (sizeof (LANC_Context) ) ; 
assert (anc != NULL); 
anc->cc = num_cells; 
anc->lambda = lambda; 
anc->min_error = min_error; 

anc->cells = (LANC_CELLS *) malloc ( sizeof (LANC_CELLS) 
assert (anc->cells != NULL) ; 

return (anc) ; 



*/ 
*/ 
*/ 



* (num cells + 2 



Name: LANC_Reset 

Abstract: Reset an ANC context 



extern VOID 
LANC_Reset ( 

LANC_Context *anc) { 

FLOAT32 *p; 
INT32 m; 

p = (FLOAT 3 2 *) anc->cells; 



(m = 0; 


m 


<= anc->cc; m++) { 


rho 




0.0; 


err 




0.0; 


f err 




0.0; 


berr 




0.0; 


berr_l 




0.0; 


delta 




0.0; 


delta_l 




0.0; 


Bserr 




anc->min_error ; 


Bserr_l 




anc->min error; 


gamma 




MIN VAL; 


gamma_l 




MIN VAL; 


P 




ANC CELL SIZE; 



} 

p = (FLOAT 3 2 *) anc->cells; /* Cell # 0 special case */ 

gamma = 1.0; 
gamma_l =1.0; 

} 



/* 

Name : LANC_Done 

Abstract: Delete an ANC context 



r 



extern VOID 
LANC_Done ( 

LANC_Context *anc) { 

free(anc->cells) ; 
free(anc) ; 

} 

/* 

Name: LANC_Calc 

Abstract: Calculate 



FLO AT 3 2 
LANC_Calc ( 

LANC_Context 

FLOAT 3 2 

FLOAT 3 2 



{ 



INT32 
FLOAT 3 2 
FLOAT 3 2 
FLOAT 3 2 
INT32 



*anc, 
nps, 
noise) 

m; 

*p; 

B,F, B2,F2; 
qd2 ,qd3 ; 
output_cell; 



/* 
/* 
/* 



input, context handle 
input, noise plus signal 
input, noise reference 



*/ 
*/ 
*/ 



/* Update time delay elements in cell structure 

p = (FLOAT 3 2 *)anc->cells; 

for (m = 0; m <= anc->cc; m++) { 

gamma_l = gamma; 

berr_l = berr; 

Bserr_l = Bserr; 

delta_l = delta; 

p += ANC_CELL_SIZE; 

} 



*/ 



/* Handle Cell # 0 

p = ( FLOAT 3 2 *)anc->cells; 



Bserr 




anc->lambda * Bserr 1 + noise * noise; 


Bserr 




MAX (Bserr, MIN_BSERR) ; 


f err 




noise / SQRTF (Bserr) ; 


f err 




MAX (ferr, MIN DEL) ; 


ferr 




MIN(ferr, MAXJDEL) ; 


berr 




ferr; 



rho = anc->lambda * SQRTF (Bserr_l / Bserr) * rho + berr * nps; 
N_err = nps - rho * berr; 

output_cell = anc->cc - 1; /* Assume last cell for starter */ 

for (m = 1; in < anc->cc; m++) { 
p += ANC CELL SIZE; 



B = SQRTF(1.0 - P berr 1 * P berr 1) ; 



B2 = l.O/B; 



c 

F = SQRTF(1.0 - P_ferr * P_ferr ); F2 = 1.0/F; 

P_delta = P_delta_l * F * B + P_berr_l * P_ferr; 
P_delta = MAX(P_delta, MIN_DEL) ; 
P_delta = MIN(P_delta, MAX_DEL) ; 
qd3 = 1.0 - P_delta * P_delta; 
qd2 = 1.0 / SQRTF(qd3); 



ferr = (P_ferr - P_delta * P_berr_l) * qd2 * B2; 

ferr = MAX(ferr, MIN_DEL) ; 

ferr = MIN(ferr, MAX_DEL) ; 

berr = (P_berr_l - P_delta * P_ferr ) * qd2 * F2; 

berr = MAX (berr, MIN_DEL) ; 

berr = MIN(berr, MAX_DEL) ; 

gamma = P_gamma * (1.0 - P_berr * P_berr) ; 
gamma = MAX (gamma, MIN_VAL) ; 
gamma = MIN (gamma, MAX_DEL) ; 



Bserr = P_Bserr_l * qd3 ; 

Bserr = MAX (Bserr, MIN_BSERR) ; 

rho *= anc->lambda * SQRTF ( (Bserr_l / Bserr) * (gamma / gamma_l)) 

rho += berr * err; 

rho = MAX (rho, MIN_RH0) ; 

rho = MIN(rho, MAX_RH0) ; 

N_err = err - rho * berr; 

} 



p = (FLOAT 3 2 *) &(anc->cells[output_cell /* *ANC_CELL_SIZE */]); 
return ( N_er r ) ; 



/* QRD 

/include <stdlib.h> 
#include <math.h> 

/define TRUE 
/define FALSE 

/define FLOAT32 
/define INT32 
/define VOID 

/define FABSF 
/define SQRTF 



APPENDIX D 
*/ 



1 
0 

float 
long int 
void 

f abs 
sqrt 



typedef struct { 

INT32 dummy; 
} LQRDJPEF_CONTEXT; 

typedef LQRDJPEF_CONTEXT * LQRD JPEF_Handle ; 



extern LQRDJPEF_Handle 
LQRDJPEF_Init ( 

INT32 

FLOAT 3 2 

FLOAT 3 2 

FLO AT 3 2 

FLO AT 3 2 



NumCells, 
Lambda , 
SumErrlnit, 
Gamslnit, 
MinSumErr) ; 



extern VOID 
LQRDJPEF_Done ( 

LQRDJPEF_Handle hJPE) ; 

extern VOID 
LQRDJPEF_Reset ( 

LQRDJPEF_Handle hJPE) ; 

extern FLOAT 3 2 

LQRDJPEF_Calc ( 

LQRDJPEF_Handle hJPE, 
FLO AT 3 2 nps, 
FLO AT 3 2 noise) ; 



/* handle 

/* noise plus signal 
/*■ noise reference 



/define MAX(a,b) (a) > (b) ? (a) : (b) 
/define MIN(a,b) (a) < (b) ? (a) : (b) 



/define LQRDJPEF_CELL_SIZE 
typedef struct { 



FLO AT 3 2 


sinf , 


sinf_ 


1 


t 


FLOAT 3 2 


sinb , 


sinb_ 


~1 


1 


FLOAT 3 2 


cosf , 


cosf_ 


1 


/ 


FLOAT 3 2 


cosb , 


cosb_ 


'l 


7 



27 



FLOAT 3 2 epsf; 



( 

FLOAT32 epsb , epsb_l ; 

FLOAT32 pief , pief_l ; 
FLOAT32 pieb , pieb_l ; 

FLOAT32 Fserr, Fserr_l, SQRTF_Fserr, SQRTF_Fserr_l ; 
FLOAT 3 2 Bserr_l, Bserr_2, SQRTF_Bserr_l , SQRTF_Bserr_2 ; 

FLOAT32 p_l, p_2; 
FLOAT32 gams_JL; 
FLOAT32 epsi_l; 

} LQRDJPEF_CELL; 



typedef struct { 

INT32 NumCells; /* number of cells */ 

FLOAT 3 2 Lambda; /* Lambda */ 

FLOAT 3 2 SumErrlnit; /* Initial value for Fserr, Bserr */ 

FLO AT 3 2 Gamslnit; /* Initial value for gams */ 

FLOAT 3 2 MinSumErr; /* Minimum for Fserr, Bserr */ 

FLOAT 3 2 SQRTFJLambda; /* square root of Lambda */ 

FLOAT32 SQRTF_SumErrInit; /* square root of SumErrlnit */ 

LQRDJPEF_CELL *cells; /* point to array of JPE_CELLS */ 

} LQRD JPEF_Context ; 

/* The following macros provide efficient access to the lattice 

Define variables offsets within structure */ 



#define xSINF 0 

#define xSINF_l 1 

#define xSINB 2 

#define xSINB_l 3 

#define xCOSF 4 

#define xCOSF_l 5 

/define xCOSB 6 

#define xCOSB_l 7 

#define xEPSF 8 

/define xEPSB 9 

/define xEPSB_l 10 

/define xPIEF 11 

/define xPIEF_l 12 

/define xPIEB 13 

/define xPIEB_l 14 

/define xFSERR 15 

/define xFSERR_l 16 

/define xSQRTF_FSERR 17 

/define xSQRTF_FSERR_l 18 

/define xBSERR_l 19 

/define xBSERR_2 20 

/define xSQRTF_BSERR_l 21 

/define xSQRTF_BSERR_2 22 

/define xp_l 23 

/define xp_2 24 



/define 


XGAMSQ 1 






25 




/define 


xEPSI_l 






26 




#def ine 


sinf 










/define 


sinf 1 






(*(ptr 


+ 


/define 


P sinf 






(*(ptr 


+ 


/define 


P_sinf_l 






(*(ptr 


+ 


#def ine 


sinb 








+ 


/define 


sinb_l 






(*(ptr 


+ 


/define 


P_sinb 






(*(ptr 


+ 


/define 


P_sinb_l 






(*(ptr 


+ 


/define 


cosf 








+ 


/define 


cosf_l 






(*(ptr 


+ 


/define 


P_cosf 






(* (ptr 


+ 


/define 


P_cosf_l 






(*(ptr 


+ 


#def ine 


cosb 










/define 


cosb_l 






(*(ptr 


+ 


/define 


P_cosb 






(*(ptr 


+ 


/def ine 


P cosb 1 






( * fptr 


+ 


/define 


epsf 






(*(ptr 


+ 


/define 


P_epsf 






(*(ptr 




/define 


epsb 






( * ( otr 


+ 


/define 


epsb_l 






(* (ptr 


+ 


/define 


P_epsb 






(*(ptr 


+ 


/define 


P_epsb_l 






(*(ptr 


+ 


/define 


pief 






( * (ptr 


+ 


/define 


pief_l 






(*(ptr 


+ 


/define 


P pief 






(*(ptr 


+ 


/define 


P_pief_l 






(*(ptr 


+ 


/define 


pieb 






(*(ptr 


+ 


/define 


pieb_l 






(*(ptr 


+ 


/define 


P_pieb 






(*(ptr 


+ 


/define 


P_pieb_l 






(*(ptr 


+ 


/define 


Fserr 






(* (ptr 


+ 


/define 


Fserr_l 






(*(ptr 


+ 


/define 


P_ Fserr 






(*(ptr 


+ 


/define 


P_Fserr_l 






(*(ptr 


+ 


/define 


SQRTF_Fserr 










/define 


SQRTF Fserr 


1 




(*(ptr 


+ 


/define 


SQRTF_P_Fserr 




(*(ptr 


+ 


/define 


SQRTF_P_Fserr_ 


1 


(*(ptr 


+ 


/define 


Bserr_l 






(*(ptr 


+ 


/define 


Bserr_2 






(*(ptr 


+ 


/define 


P_Bserr_l 






(*(ptr 


+ 


/define 


P_Bserr_2 






(*(ptr 


+ 


/define 


SQRTF_Bserr_ 


1 




(*(ptr 


+ 


/define 


SQRTF Bserr 


2 




(*(ptr 




/define 


SQRTF_P_Bserr_ 


1 


(*(ptr 


+ 


/define 


SQRTF_P_Bserr_ 


'2 


(*(ptr 


+ 



r 



XSINF) ) 
XSINF_1) ) 

XSINF - LQRD JPEF_CELL_S I Z E ) 
XSINF_1 - LQRD JPEF_CELL_S I Z E ) 

XSINB) ) 
XSINB_1) ) 

XSINB - LQRD JPE F_CELL_S I Z E ) 
XSINB_1 - LQRD JPEF_CELL_S I Z E ) 

XCOSF) ) 
XC0SF_1) ) 

XCOSF - LQRD JPEF_CELL_S I Z E ) 
XC0SF_1 - LQRDJPEF_CELL_SIZE) 

XCOSB) ) 
XCOSB1) ) 

XCOSB - LQRD JPEF_CELL_S I Z E ) 
XC0SB_1 - LQRD JPEF_CELL_S I ZE ) 

XEPSF) ) 

XEPSF - LQRD JPEF_CELL_S I Z E ) 

XEPSB) ) 
XEPSB_1) ) 

XEPSB - LQRD JPEF_CELL_S I ZE ) 
XEPSB_1 - LQRD JPEF_CELL_S I Z E ) 

XPIEF) ) 
XPIEF_1) ) 

XPIEF - LQRD JPEF_CELL_S I Z E ) 
XPIEF_1 - LQRD JPEF_CELL_S I Z E ) 

XPIEB) ) 
XPIEB_1) ) 

XPIEB - LQRD JPEF_CELL_S I Z E ) 
XPIEB_1 - LQRD JPEF_CELL_S I Z E ) 



XFSERR) ) 
XFSERR_1 ) ) 

XFSERR - LQRDJPEF_CELL_SIZE) ) 
XFSERR_1 - LQRDJPEF_CELL_SIZE) ) 
XSQRTF_FSERR) ) 
XSQRTF_FSERR_1) ) 

XSQRTF_FSERR - LQRD JP EF_C ELL_S I Z E ) ) 
XSQRTF_FSERR_1 - LQRDJPEF_CELL_SIZE) ) 

XBSERR_1 ) ) 
XBSERR_2 ) ) 

XBSERR_1 - LQRDJPEF_CELL_SIZE) ) 
XBSERR_2 - LQRDJPEF_CELL_SIZE) ) 
XSQRTF_BSERR_1) ) 
xSQRTF_BSERR_2 ) ) 

XSQRTF_BSERR_1 - LQRD JPEF_CELL_S I ZE ) ) 
XSQRTF_BSERR_2 - LQRDJPEF_CELL_SIZE) ) 



r. 



#de'fine 


P_l 


(* 


(ptr 


+ 


xp_l)) 








/define 


p_2 


(* 


(ptr 


+ 


xp_2)) 








#def ine 


P D 1 




f rvtr 


a. 

i 






CFT.T, 




#def ine 


P_p_2 


(* 


(ptr 


+ 


xp~2 


lqrdjpef" 


"cell" 


"SIZE) ) 


#def ine 


gams_l 


(* 


(ptr 


+ 


XGAMSQ 1) ) 








#def ine 


P_gams_l 


(* 


(ptr 


+ 


XGAMSQ_1 - 


LQRDJPEF_ 


_CELL_ 


SIZE) ) 


#def ine 


epsi_l 


(* 


(ptr 




XEPSI 1)) 








#def ine 


P_epsi_l 


(* 


(ptr 




XEPSI_1 - 


LQRDJPEF_ 


_CELL_ 


_SIZE) ) 



static FLOAT32 
RSQRTF ( 

FL0AT32 X) { 



return 1.0F / SQRTF (x) ; 

} 

/* 

Name : LQRDJPEF_Init 

Abstract : Create a JPE context 

. */ 

extern LQRDJPEF_Handle 
LQRD JPEF_Init ( 

INT32 NumCells, 

FLO AT 3 2 Lambda, 

FLOAT 3 2 SumErrlnit , 

FLOAT 3 2 Gamslnit, 

FLOAT 3 2 MinSumErr ) { 



LQRD JPEF_Cont ext * j pe ; 

jpe = malloc (sizeof (LQRDJPEF_Context) ) ; 
assert(jpe != NULL) ; 

jpe->NumCells = NumCells; 

jpe->Lambda = Lambda; 

jpe->SumErrInit = SumErrlnit; 

jpe->GamsInit = Gamslnit; 

jpe->MinSumErr = MinSumErr; 

jpe->SQRTF_Lambda = SQRTF (jpe->Lambda) ; 

jpe->SQRTF_SumErrInit = SQRTF (jpe->SumErrInit ) ; 

jpe->cells = malloc (sizeof (LQRDJPEF_CELL) * (NumCells + 2)); 
assert (jpe->cells != NULL); 

LQRDJPEF_Reset ( (LQRDJPEF_Handle) jpe) ; 
return ( (LQRDJPEF_Handle) jpe) ; 

} 



/* 

Name : LQRDJPEF_Done 

Abstract : Delete a JPE context 



extern VOID 
LQRD JPEFJDone ( 



} 

/* 



r 



LQRDJPEF_Handle 

LQRDJPEF_Context 

free( jpe->cells) ; 
free(jpe) ; 



hJPE) { 

*jpe = (LQRDJPEF Context *)hJPE; 



Name : LQRDJPEF_Reset 

Abstract : Reset a JPE context 



extern VOID 
LQRDJPEF_Reset ( 

LQRDJPEF Handle 



} 

/* 



hJPE) { 

LQRDJPEF_Context *jpe = ( LQRD JPEF_Cont ext *)hJPE; 



FLOAT 3 2 
INT32 



*ptr ; 
m; 



ptr = (FLOAT 3 2 *) jpe->cells; 

for (m = 0; m <= jpe->NumCells; m++) { 



sinf 




O.OF; 


sinb 




O.OF; 


cosf 




O.OF; 


cosb 




O.OF; 


epsf 




O.OF; 


epsb 




O.OF; 


pief 




O.OF; 


pieb 




O.OF; 


P_l 




O.OF; 


Fserr 




jpe->SumErrInit ; 


Bserr_l 




jpe->SumErrInit ; 


gams_l 




jpe->GamsInit; 



SQRTF_Fserr = jpe->SQRTF_SumErrInit; 
SQRTF_Bserr_l = jpe->SQRTF_SumErrInit ; 



ptr += LQRDJPEF_CELL_SIZE; 
} 

ptr = (FLO AT 3 2 *) jpe->cells ; 
gams_l = 1.0F; 



/* Cell # 0 special case 



Name 

Abstract 



LQRDJPEF Calc 



extern FLO AT 3 2 
LQRDJPEF_Calc( 

LQRD JPEF_Handle h JPE , 

FLO AT 3 2 nps, /* noise plus signal */ 

FLO AT 3 2 noise) { /* noise reference */ 

LQRD JPEF_Cont ext *jpe = ( LQRD JPEF_Context *)hJPE; 



INT32 



m; 



r 



FLOAT32 
FLOAT32 



*Ptr; 
tmp; 



Time update section 



*/ 



ptr 



= (FLOAT 3 2 *) jpe->cells; 



for (m = 0; m <= jpe->NumCells; m++) { 

/* some of following delay elements are not needed */ 

sinf_l = sinf; 

sinb_l = sinb; 

cosf_l = cosf; 

cosb_l - cosb; 

epsb_l = epsb; 

pief_l = pief ; 

pieb_l = pieb; 

Fserr_l = Fserr; 
Bserr_2 = Bserr_l; 
P_2 = P_l; 

SQRTF_Bserr_2 = SQRTF_Bserr_l ; 
SQRTF_Fserr_l = SQRTF_Fserr; 

ptr += LQRDJPEF_CELL_SIZE; 

} 

/* Order update section */ 
/* Handle Cell #0 */ 

ptr = (FLOAT32 *) ( jpe->cells) ; /* point to cell # 0 */ 
epsf = noise; 
epsb = noise; 
epsi_l = nps; 

/* rest of cells */ 

for (m = l; m < jpe->NumCells; m++) { 

ptr += LQRDJPEF_CELL_SIZE; /* access next cell */ 

/* Prediction section */ 

P_Bserr_l = jpe->Lambda * P_Bserr_2 + P_epsb_l * P_epsb 
P_Bserr_l = MAX(P_Bserr_l , jpe->MinSumErr) ; 
SQRTF_P_Bserr_l = SQRTF ( P_Bserr_l ) ; 

tmp = RSQRTF (P_Bserr_l) ; /* this comes free on DSP */ 

P_cosb_l = jpe->SQRTF_Lambda * SQRTF_P_Bserr_2 * tmp; 

P_sinb_l = P_epsb_l * tmp; 

tmp = jpe->SQRTF_Lambda * P__pief_l; 

epsf = P_cosb_l * P_epsf - P_sinb_l * tmp; 

P_pief = P_cosb_l * tmp + P_sinb_l * P_epsf; 

gams 1 - P cosb 1 * P gams 1; 



r 

\ 

P_Fserr = jpe->Lambda * P_Fserr_l + P_epsf * P_epsf ; 
P_Fserr = MAX(P_Fserr, jpe->MinSumErr) ; 

SQRTF_P_Fserr = SQRTF(P_Fserr) ; 

tmp = RSQRTF (P_Fserr) ; /* this comes free on DSP */ 

P_cosf = jpe->SQRTF_Lambda * SQRTF_P_Fserr_l * tmp; 

P_sinf = P_epsf * tmp; 

tmp = jpe->SQRTF_Lambda * P_pieb_l; 

epsb = P_cosf * P_epsb_l - P_sinf * tmp; 

P_pieb = P_cosf * tmp + P_sinf * P_epsb_l; 

/* Joint Process Estimation section */ 

tmp = jpe->SQRTF_Lambda * P_p_2; 

epsi_l = P_cosb_l * P_epsi_l - P_sinb_l * tmp; 
P_p_l = P_cosb_l * tmp + P_sinb_l * P_epsi_l; 

} 

ptr += LQRDJPEF_CELL_JSIZE; /* access next cell */ 

/* Do minimum work for JPE of very last cell 

only four equations are required for prediction section 

P_Bserr_l = jpe->Lambda * P_Bserr_2 + P_epsb_l * P_epsb_l; 
P_Bserr_l = MAX(P_Bserr_l, jpe->MinSumErr) ; 

SQRTF_P_Bserr_l = SQRTF (P_Bserr_l) ; 

tmp = RSQRTF (P_Bserr_l) ; /* this comes free on DSP */ 
P_cosb_l = jpe->SQRTF_Lambda * SQRTF_P_Bserr_2 * tmp; 
P_sinb_l = P_epsb_l * tmp; 

/* Joint Process Estimation for last cell */ 
tmp = jpe->SQRTF_Lambda * P_P_2; 

epsi_l = P_cosb_l * P_epsi_l - P_sinb_l * tmp; 
P_P_1 = P_cosb_l * tmp + P_sinb_l * P_epsi_l; 

gams_l = P_cosb_l * P_gams_l; 
return(gams_l * epsi_l) ; 



